home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / color.swg / 0008_Hi Intensity Colors #2.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-05-28  |  516 b   |  25 lines
  1. {
  2. > I have seen a lot of applications that use highintensity background
  3. > colors in Text mode.  How do they do it??????
  4. }
  5.  
  6. Uses Crt ;
  7.  
  8. Procedure DisableHiBackGround(SetHi : Boolean); Assembler;
  9. Asm
  10.      Mov  AX, $1003
  11.      Mov  BL, SetHi
  12.      Int  $10
  13. end ;
  14.  
  15. begin
  16.      ClrScr;
  17.      TextAttr := White + (LightRed ShL 4);
  18.      DisableHiBackGround(True) ;
  19.      Write('Blinking...[Enter]') ;
  20.      ReadLn ;
  21.      DisableHiBackGround(False) ;
  22.      Write('      WOW !!!     ') ;
  23.      ReadLn ;
  24. end.
  25.